$file1 = "comm_genes.txt";
#$li1 = 6;
#$li2 = "normalized_probset_average.txt";
#$file2 = "./$li1/$li2";
open(BUFF1,$file1);
open(BUFF2,"taqman_normalized.txt");
open(WRBUFF,">final_taqman_normalized.txt");
#open(BUFF2,$file2);
#open(WRBUFF,">./$li1/results/$li2");
while($line = <BUFF1>)
{
	$line =~ s/\n//g;
	$line =~ s/\r//g;
	
	$hash1{$line} = "k";

}

$line = <BUFF2>;
print WRBUFF $line;
while($line = <BUFF2>)
{
	$gene = "";
        $line =~ s/\n//g;
        $line =~ s/\r//g;
        @array = split("\t",$line);
        $gene = $hash1{$array[0]};
	if($gene eq "k" && $gene ne "" )
	{
		print WRBUFF $line."\n";
	}
	$hash1{$array[0]} = "k1";
	
}
